home *** CD-ROM | disk | FTP | other *** search
/ Cinema Studio: Frank Herrmann / Cinema Studio - Frank Herrmann.iso / tools / raystorm / arexx / attrtest.ray next >
Text File  |  1995-08-06  |  1KB  |  68 lines
  1. /***************
  2.  * NAME:        attrtest.ray
  3.  * VERSION:     1.0 06.08.1995
  4.  * DESCRIPTION: This ARexx-programm demonstrates different attributes
  5.  * AUTHORS:     Andreas Heumann
  6.  * BUGS:        none
  7.  * TO DO:       none
  8.  * HISTORY:     DATE  NAME  COMMENT
  9.  *              06.08.95 ah initial release
  10.  ***************/
  11.  
  12. OPTIONS RESULTS
  13.  
  14. IF ~SHOW('P','RAYSTORM') THEN DO  /* if not allready running, start RayStorm */
  15.    ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
  16.    ADDRESS COMMAND WaitForPort RAYSTORM
  17. END  
  18.  
  19. ADDRESS RAYSTORM
  20.  
  21. TEXTUREPATH 'dh1:user/raystorm/textures'
  22.  
  23. SETSCREEN 160 128
  24. SETCAMERA 0 0 80  0 0 0  0 1 0  56.25 45
  25. SETWORLD 0 0 0  40 40 40
  26. POINTLIGHT '10 -10 100  255 255 255 SHADOW'
  27.  
  28. NEWSURFACE TEST
  29. AMBIENT 255 0 0
  30. DIFFUSE 255 0 0
  31. SPECULAR 255 255 255
  32. REFEXP 5
  33.  
  34. NEWSURFACE TEST1
  35. AMBIENT 0 255 0
  36. DIFFUSE 0 100 0
  37. TRANSPAR 0 155 0
  38. REFRINDEX 1.33
  39.  
  40. NEWSURFACE TEST2
  41. AMBIENT 0 0 255
  42. DIFFUSE 0 0 255
  43. REFLECT 100 100 100
  44.  
  45. NEWSURFACE TEST3
  46. AMBIENT 255 255 0
  47. DIFFUSE 255 255 0
  48. IMTEXTURE 'checker.itx 0.1 0.1 0.1  0 0 0  2 2 2'
  49.  
  50. NEWSURFACE PLANE
  51. SPECULAR 0 0 0
  52. IMTEXTURE 'checker.itx 0.1 0.1 0.1  0 0 0  5 5 5'
  53.  
  54. SPHERE 'TEST 15 15 0  10'
  55. SPHERE 'TEST1 15 -15 0  10'
  56. SPHERE 'TEST2 -15 -15 0  10'
  57. SPHERE 'TEST3 -15 15 0  10'
  58.  
  59. PLANE 'PLANE 0 0 -50 0 0 1'
  60.  
  61. STARTRENDER
  62.  
  63. SAVEPIC 'attrtest.iff'
  64.  
  65. CLEANUP
  66.  
  67. exit 0
  68.